home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / win-fort.zip / DOWNTOOL.FOR < prev    next >
Text File  |  1991-11-09  |  497b  |  24 lines
  1. $DEFINE GDI
  2. $DEFINE USER
  3.       INCLUDE 'WINDOWS.FI'
  4.       SUBROUTINE DOWN_TOOLS
  5.       IMPLICIT NONE
  6. C
  7. C Author       : Kevin B Black
  8. C Date written : 23-Oct-1991
  9. C Abtract     :
  10. C
  11. C DELETE DRAWING TOOLS
  12. C
  13. C This subroutine deletes the general drawing tools
  14. C
  15.       INCLUDE 'WINDOWS.FD'
  16.       INCLUDE 'FWCLOCK.FD'
  17. C
  18.       WSTATUS=DeleteObject(FBRUSH)
  19.       WSTATUS=DeleteObject(BBRUSH)
  20.       WSTATUS=DeleteObject(FPEN)
  21.       WSTATUS=DeleteObject(BPEN)
  22.       RETURN
  23.       END
  24.